home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / swaga-c / cursor.swg / 0013_Spinning Cursor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-27  |  518 b   |  34 lines
  1. {
  2. SEAN PALMER
  3.  
  4. This is an example for the cursor I talked about to someone on here...
  5. }
  6.  
  7. program spinCursor;
  8.  
  9. uses
  10.   crt;
  11.  
  12. var
  13.   cursorState : byte;  {0..3}
  14.   i           : integer;
  15.  
  16. const
  17.   cursorData : array [0..3] of char = (#30, #17, #31, #16);
  18.  
  19. procedure updateCursor;
  20. begin
  21.   cursorState := succ(cursorState) and 3;
  22.   write(cursorData[cursorState], ^H);
  23. end;
  24.  
  25. begin
  26.   for i := 1 to 100 do
  27.   begin
  28.     gotoxy(1,1);
  29.     updateCursor;
  30.     gotoxy(1,41);
  31.     delay(100);
  32.   end;
  33. end.
  34.